VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CostItemEntity"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private mvarItemId          As String
Private mvarPrice           As Double
Private mvarAmount          As Long
Private mvarItemType        As String
Private mvarRecordId        As String
Private mvarSpecification   As String
Private mvarItemName        As String
Private mvarReimbursementRate As Single

Public Property Get ReimbursementRate() As Single
    ReimbursementRate = mvarReimbursementRate
End Property

Public Property Let ReimbursementRate(ByVal vData As Single)
    mvarReimbursementRate = vData
End Property

Public Property Get ItemName() As String
    ItemName = mvarItemName
End Property

Public Property Let ItemName(ByVal vData As String)
    mvarItemName = vData
End Property

Public Property Get Specification() As String
    Specification = mvarSpecification
End Property

Public Property Let Specification(ByVal vData As String)
    mvarSpecification = vData
End Property

Public Property Get ItemId() As String
    ItemId = mvarItemId
End Property

Public Property Let ItemId(ByVal vData As String)
    mvarItemId = vData
End Property

Public Property Let RecordId(ByVal vData As String)
    mvarRecordId = vData
End Property

Public Property Get RecordId() As String
    RecordId = mvarRecordId
End Property

Public Property Let ItemType(ByVal vData As String)
    mvarItemType = vData
End Property

Public Property Get ItemType() As String
    ItemType = mvarItemType
End Property

Public Property Let Amount(ByVal vData As Long)
    mvarAmount = vData
End Property

Public Property Get Amount() As Long
    Amount = mvarAmount
End Property

Public Property Let Price(ByVal vData As Double)
    mvarPrice = vData
End Property

Public Property Get Price() As Double
    Price = mvarPrice
End Property
